home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / util / sys / FastAssign.lha / FastAssign / src / Macra.s < prev   
Encoding:
Text File  |  2009-10-08  |  1.5 KB  |  93 lines
  1. ;TOSPJPKPJPKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGAFAGAG
  2. ;
  3. ;start 96-Styczeï-01
  4. ;$VER: macra v1.0d DATE 10-VIII-97
  5. ;name        info                example        more info
  6. ;
  7. ;push        zrzutka rejestrów na stos     d0-d4/a0
  8. ;pop        zbiórka rejestrów ze stosu    d0-d4/a0
  9. ;call        skok do procedórki sys _XXX    OpenLibrary    jsr _xxx(a6)
  10. ;callexec    skok od execu            OpenLibrary    4.w>a6 call xx
  11. ;exec        wrzuca do a6 baze execu        -        move.l 4.w,a6
  12. ;rmb        pauza na prawâ mysz        -
  13. ;vertical    czeka na dany wertical        $101
  14. ;waitblitter    czeka aû blit. zkoïczy dziaîaê    -
  15. ;open
  16. ;movel        wrzuca baze biblioteki do a6    Dos        move.l b_xx,a6
  17. ;lib        to samo
  18. ;jump        jak call tylko jmp        OpenLibrary
  19. ;ml        zamiast move.l            jak move.l
  20. ;mw        move.w
  21. ;mb
  22. ;q 1
  23. ;q0 d0
  24.  
  25. qa0:    MACRO
  26.     sub.l    \1,\1
  27.     ENDM
  28. ml:    MACRO
  29.     move.l    \1,\2
  30.     ENDM
  31. mw:    MACRO
  32.     move.w    \1,\2
  33.     ENDM
  34. mb:    MACRO
  35.     move.b    \1,\2
  36.     ENDM
  37. q:    MACRO
  38.     moveq    #\1,\2
  39.     ENDM
  40. q0:    MACRO
  41.     moveq    #0,\1
  42.     ENDM
  43.  
  44. push:    MACRO
  45.     movem.l    \1,-(sp)
  46.     ENDM
  47. pop:    MACRO
  48.     movem.l    (sp)+,\1
  49.     ENDM
  50. pusha:    MACRO
  51.     movem.l    d0-a6,-(sp)
  52.     ENDM
  53. popa:    MACRO
  54.     movem.l    (sp)+,d0-a6
  55.     ENDM
  56. EXEC:    MACRO
  57.     move.l    4.w,a6
  58.     ENDM
  59. RMB:    MACRO
  60.     btst    #2,$dff016
  61.     beq.s    *-8
  62.     ENDM
  63. VERTICAL:    MACRO
  64.     move.l    4(a5),d0
  65.     and.l    #$0001ff00,d0
  66.     cmp.l    #\1*2^8,d0
  67.     bne.s    *-16
  68.     ENDM
  69. WAITBLITTER:    MACRO
  70. .\@w    btst    #14,2(a5)
  71.     bne.s    .\@w
  72.     ENDM
  73. movel:    MACRO
  74.     move.l    b_\1(pc),a6
  75.     ENDM
  76. lib:    MACRO
  77.     move.l    b_\1(pc),a6
  78.     ENDM
  79. JUMP:    MACRO
  80.     jmp    _\1(a6)
  81.     ENDM
  82. CALL:    MACRO
  83.     jsr    _\1(a6)
  84.     ENDM
  85. ;CALLEXEC:    MACRO
  86. ;    EXEC
  87. ;    jsr    _\1(a6)
  88. ;    ENDM
  89. CALLB:    MACRO
  90.     move.l    b_\2(pc),a6
  91.     jsr    _\1(a6)
  92.     ENDM
  93.